* src/minibuf.c (read_minibuf): Ignore caller's inhibit-read-only.

Fixes: debbugs:12117

diff --git a/src/ChangeLog b/src/ChangeLog
index 26e1ac3d9c2a8cbdf7eab9de531e36798e07330b..adf719d7efd945eb2b1123f8da282e96f6adc8d1 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * minibuf.c (read_minibuf): Ignore caller's inhibit-read-only
+       (bug#12117).
+
 2012-08-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * alloc.c (Fgarbage_collect): Use plural form consistently.

diff --git a/src/minibuf.c b/src/minibuf.c
index 59da974df000825a5d3b297e3b65a690a3f98f96..06ea415db620387b67d10bfbd206d2615518fda2 100644 (file)
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -408,6 +408,7 @@ read_minibuf (Lisp_Object map, Lisp_Object initial, Lisp_Object prompt,
   Lisp_Object dummy, frame;
 
   specbind (Qminibuffer_default, defalt);
+  specbind (intern ("inhibit-read-only"), Qnil);
 
   /* If Vminibuffer_completing_file_name is `lambda' on entry, it was t
      in previous recursive minibuffer, but was not set explicitly